home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 15 / CU Amiga Magazine's Super CD-ROM 15 (1997)(EMAP Images)(GB)[!][issue 1997-10].iso / CUCD / Graphics / Ghostscript / source / append_l.com < prev    next >
Text File  |  1997-05-14  |  635b  |  18 lines
  1. $ ! OpenVMS command file to emulate behavior of:
  2. $ !
  3. $ !      Appending a string to the end of a new or existing file
  4. $ !
  5. $ OPEN="OPEN"
  6. $ WRITE="WRITE"
  7. $ CLOSE="CLOSE"
  8. $ IF F$SEARCH("''P1'") .EQS. "" THEN OPEN/WRITE TEXT_FILE 'P1'
  9. $ IF F$SEARCH("''P1'") .NES. "" THEN OPEN/APPEND TEXT_FILE 'P1'
  10. $ IF P2 .NES. "" THEN WRITE TEXT_FILE "''P2'"
  11. $ IF P3 .NES. "" THEN WRITE TEXT_FILE "''P3'"
  12. $ IF P4 .NES. "" THEN WRITE TEXT_FILE "''P4'"
  13. $ IF P5 .NES. "" THEN WRITE TEXT_FILE "''P5'"
  14. $ IF P6 .NES. "" THEN WRITE TEXT_FILE "''P6'"
  15. $ IF P7 .NES. "" THEN WRITE TEXT_FILE "''P7'"
  16. $ IF P8 .NES. "" THEN WRITE TEXT_FILE "''P8'"
  17. $ CLOSE TEXT_FILE
  18.